home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.0 / Video Toaster v4.0.iso / arexx / editor / import.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-06  |  1KB  |  43 lines
  1. /* Import.rexx -- Import Universal      */
  2. /* By Arnie Cachelin © 1992 NewTek Inc. */
  3. /* 4.0'ised by Bob Caron                */
  4. /* Hakuna Matata!!!!!                   */
  5.  
  6. OPTIONS RESULTS
  7. TOASTERLIB="ToasterARexx.port"
  8. REXXLIB = "rexxsupport.library"
  9. call remlib('ToasterARexx.port')
  10. call remlib('PROJECT_REXX_PORT')
  11.  
  12. call addlib('PROJECT_REXX_PORT' , 0)
  13. call ADDLIB(TOASTERLIB , 0)
  14.  
  15. address command "C:assign hiip: toaster:programs/hiip_support"
  16.  
  17. rx startfilereq("Select Graphic To Display","Toaster:","(Filename Will Appear Here)")
  18.  
  19. exit=1
  20. do while exit=1
  21.   filename=queryfilereq()
  22.   if filename=0 then call quit
  23.   if filename~="" then exit=0
  24.   address command "c:wait 1"
  25.   say filename
  26. end
  27.  
  28. call req_open("Processing... Please Wait.")
  29. address command "C:gnusto "||filename||" T:temp image saver iff sy "||value(0)||" sx "||value(752)||" sn bestup"
  30. Switcher(MDV1)
  31. Switcher(LRGB,"t:temp",0)
  32. call req_close()
  33. call remlib('ToasterARexx.port')
  34. call remlib('PROJECT_REXX_PORT')
  35.  
  36. exit
  37.  
  38. quit:
  39.    call req_tell("Canceled!")
  40.    call remlib('ToasterARexx.port')
  41.    call remlib('PROJECT_REXX_PORT')
  42.    exit
  43.